home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / programming / libraries / tri12dev.lha / Triton / Developer / M2Amiga / Demo.mod next >
Encoding:
Text File  |  1995-01-14  |  2.5 KB  |  123 lines
  1. (* REVISION HEADER ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *
  2.  | 
  3.  | $VER: Demo.mod 1.00 (06.09.94) by Stefan Schulz
  4.  | 
  5.  | Module          : Demo
  6.  | Last Modified   : Tuesday, 06.09.94
  7.  | Author          : Stefan Schulz
  8.  | Actual Revision : 1.00
  9.  | 
  10.  | 
  11.  | Description
  12.  | -----------
  13.  |   - Nonfunctional User Interface as Demonstration
  14.  | 
  15.  | Requirements
  16.  | ------------
  17.  |   - triton.library V1.1
  18.  | 
  19.  | Language
  20.  | --------
  21.  |   - M2Amiga Modula 2 Software Development System
  22.  |     © Copyright by A+L AG, CH-2540 Grenchen
  23.  | 
  24.  | Revision 1.00  \06.09.94\
  25.  |  - initial revision
  26.  |   
  27.  * ×××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××××× *)
  28.  
  29. MODULE Demo;
  30.  
  31. (* IMPORTS ********************************************************************** *)
  32.  
  33. IMPORT    td    : TritonD,
  34.     tl    : TritonL;
  35.  
  36. IMPORT    A    : Arts,
  37.     ed    : ExecD,
  38.     id    : IntuitionD,
  39.     S    : SYSTEM,
  40.     ud    : UtilityD;
  41.  
  42. (* ****************************************************************************** *)
  43.  
  44. (* --- Objects ------------------------------------------------------------------ *)
  45.  
  46. VAR    App        : td.TrAppPtr;
  47.     Project        : td.TrProjectPtr;
  48.  
  49. VAR    AppBuffer    : ARRAY [0..3] OF ud.TagItem;
  50.     ProjectBuffer    : ARRAY [0..15] OF ud.TagItem;
  51.  
  52.  
  53. PROCEDURE InitApplication;
  54.  
  55.  BEGIN
  56.  
  57.  App:= tl.CreateApp
  58.     ( S.TAG(AppBuffer,
  59.         td.trcaName,     S.ADR("M2AmigaDemo"),
  60.         td.trcaLongName, S.ADR("M2Amiga Demo Application"),
  61.         td.trcaVersion,  S.ADR("1.0"),
  62.       ud.tagDone)
  63.     ); (* CreateApp *)
  64.  
  65.  A.Assert(App#NIL, S.ADR("Couldn't create Application!"));
  66.  
  67.  END InitApplication;
  68.  
  69.  
  70. PROCEDURE InitProject;
  71.  
  72.  BEGIN
  73.  
  74.  Project:= tl.OpenProject
  75.     ( App,
  76.       S.TAG(ProjectBuffer,
  77.       td.trwiID,    10,
  78.       td.trwiTitle, S.ADR("M2Amiga Demo Application"),
  79.       
  80.       td.trwiBackfill, td.trbfFILLBACKGROUND,
  81.       td.trwiPosition, td.trwpCENTERDISPLAY,
  82.       td.trgrVert,     td.trgrALIGN,
  83.         td.trobSpace,    td.trstNORMAL,
  84.         td.trgrHoriz,    td.trgrPROPSPACES+td.trgrCENTER,
  85.           td.trobSpace,    td.trstNORMAL,
  86.           td.trobText,     NIL,
  87.                    td.tratText,  S.ADR("Demo Demo Demo"),
  88.                    td.tratFlags, td.trtx3D,
  89.           td.trobSpace,    td.trstNORMAL,
  90.         td.trgrEnd,      NIL,
  91.         td.trobSpace,    td.trstNORMAL,
  92.       td.trgrEnd,      NIL,  
  93.       
  94.       ud.tagEnd)
  95.     ); (* OpenProject *)
  96.  
  97.  A.Assert(Project#NIL, S.ADR("Couldn't open Project!"));
  98.  
  99.  END InitProject;
  100.  
  101.  
  102.  
  103. BEGIN
  104.  
  105. InitApplication;
  106. InitProject;
  107.  
  108. IGNORE tl.Wait( App, 0 );
  109.  
  110. CLOSE
  111.  
  112. IF    Project # NIL
  113.  THEN    tl.CloseProject(Project);
  114.     Project:= NIL;
  115.  END;
  116.  
  117. IF    App # NIL
  118.  THEN    tl.DeleteApp(App);
  119.     App:= NIL;
  120.  END;
  121.  
  122. END Demo.
  123.